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Abstract 

Homotopy  type  theory  is  a  new  branch  of  mathematics  which  merges  insights  from  abstract  ho¬ 
motopy  theory  and  higher  category  theory  with  those  of  logic  and  type  theory.  It  allows  us  to 
represent  a  variety  of  mathematical  objects  as  basic  type-theoretic  constructions,  higher  inductive 
types.  We  present  a  proof  that  in  homotopy  type  theory,  the  torus  is  equivalent  to  the  product  of 
two  circles.  This  result  indicates  that  the  synthetic  definition  of  torus  as  a  higher  inductive  type  is 
indeed  correct. 
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1  Introduction 


Homotopy  type  theory  (HoTT)  iTTSll  is  a  new  braneh  of  mathematies  whieh  merges  insights  from 
abstraet  homotopy  theory  and  higher  eategory  theory  with  those  of  logie  and  type  theory.  A  num¬ 
ber  of  well-known  results  in  algebraie  topology  have  been  established  within  HoTT  and  formally 
verified  using  the  proof  assistants  Agda  ifTll  and  Coq  [1141:  these  inelude  the  ealeulation  of  7rn(S"^) 
(lUllTlI);  the  Freudenthal  Suspension  Theorem  [[T5l:  the  Blakers-Massey  Theorem  [|T5l.  the  van 
Kampen  theorem  [flSll.  and  the  Mayer-Vietoris  theorem  [[T]|. 

As  a  formal  system,  HoTT  is  an  extension  of  Martin-Lof’s  dependent  type  theory  with  two 
new  eoneepts:  Voevodsky’s  univalence  axiom  ([HKIbl)  and  higher  inductive  types  ([[I0lll2l).  The 
univalenee  axiom  ean  be  paraphrased  as  stating  that  equivalent  types  are  equal,  and  henee  we  ean 
reason  about  them  using  the  identity  elimination  prineiple.  While  we  do  not  make  an  explieit  use  of 
the  axiom  in  this  paper,  we  use  one  of  its  most  important  eonsequenees  -  the  funetion  extensionality 
prineiple  -  whieh  states  that  two  pointwise  equal  funetions  are  in  faet  equal  ([|2l,  Ch.  4.9  of  [TTSlIl. 

The  seeond  main  feature  of  HoTT,  higher  induetive  types,  are  a  higher-dimensional  generaliza¬ 
tion  of  ordinary  induetive  types  whieh  allows  us  to  deelare  eonstruetors  involving  the  path  spaces 
of  the  type  X  being  defined,  rather  than  just  X  itself.  This  means  that  we  ean  define  the  higher 
induetive  type  X  e.g.,  by  means  of  the  eonstruetors  base  :  X,  loop  :  base  =x  base.  While  base  is 
an  ordinary  nullary  eonstruetor,  akin  to  the  eonstant  0  in  the  definition  of  natural  numbers,  loop  is 
a  term  of  an  identity  type  over  X,  not  X  itself.  Intuitively,  we  ean  draw  the  type  X  as  eonsisting 
of  the  point  base  and  a  loop  from  base  to  base  -  also  known  as  the  eirele: 

O'"’ 

base 

This  is  not  an  isolated  oeeurrenee:  higher  induetive  types  turn  out  to  be  well  suited  for  rep¬ 
resenting  a  wide  variety  of  mathematieal  objeets,  and  the  definitions  generally  require  very  little 
prior  development.  Most  of  the  diffieult  work  then  lies  in  showing  that  sueh  a  “synthetie”  definition 
is  indeed  the  “right”  one,  in  the  sense  that  the  higher  induetive  type  representing,  e.g.,  the  eirele 
or  the  torus  does  possess  the  expeeted  mathematieal  properties.  For  instanee,  we  would  like  to  be 
able  to  show  that  in  HoTT,  the  fundamental  group  of  the  eirele  is  the  group  of  integers,  and  that 
the  torus  is  the  produet  of  two  eireles. 

The  former  result  was  shown  by  Lieata  and  Shulman  in  dH  and  notably,  the  proof  they  give  is 
mueh  more  eoneise  than  its  homotopy-theoretie  eounterpart.  In  this  paper,  we  present  the  full  proof 
of  the  latter  result  that  the  torus  is  equivalent,  in  a  preeise  sense,  to  the  produet  x  of  two 
eireles.  This  problem  was  brought  to  the  author’s  attention  during  the  Speeial  Year  on  Univalent 
Foundations  at  the  Institute  for  Advaneed  Study  in  2012/2013.  During  that  time,  the  author  gave 
a  sketeh  of  the  prool[[]and  a  year  later  expanded  it  into  a  full  writeup  ifTSl.  whieh  was  ineluded 
in  the  HoTT  Book  exereise  solutions  file  but  never  published.  In  summer  of  2014,  Dan  Lieata 

'in  personal  correspondence,  P.  Lumsdaine  stated  he  also  had  a  sketch  of  a  proof,  which  has  not  been  made  public. 
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and  Guillaume  Brunerie  produced  a  similar,  formalized  proof  of  the  result  which  builds  upon  their 
cubical  library  for  the  Agda  proof  assistant.  This  proof  later  appeared  in  a  published  paper  |[8l .  In 
the  conclusion  we  provide  a  more  detailed  comparison  of  how  the  proof  presented  here  compares 
to  the  one  by  Licata  and  Brunerie. 

Licata  later  presented  a  proof  of  the  same  result  in  cubical  type  theory  Q.  This  proof  is  much 
simpler  since  the  cubical  type  theory  seems  better  suited  for  arguments  involving  higher  paths; 
however,  this  new  theory  is  itself  still  under  development. 

2  Preliminaries 

Summarizing  from  [fTSll.  HoTT  is  a  dependent  type  theory  with 

•  dependent  pair  types  T^x-.aB  {x)  and  dependent  function  types  TIx-.aB  (x)  .  The  non-dependent 
versions  are  denoted  by  A  x  B  and  A  —)■  B. 

•  intensional  identity  types  x  =a  D-  We  have  the  usual  formation  and  introduction  rules,  where 
the  identity  path  onx  :  A  will  be  denoted  by  lx-  The  elimination  and  computation  rules  are 
recalled  below: 

E  :  Ilx^y.AX  =Ay  type  d  :  IIx:aE{x,  x,  lx) 

J(£',d)  .  Ylx^y-AAp-x=j^yE(^x,  y ,  p) 

E  :  Ux^y.AX  =Ay  ^  type  d  :  IIx-aE{x,  x,  lx)  a:  A 
J{E,  d){a,  a,  1^)  =  d{a)  :  E{a,  a,  Iq) 

As  usual,  these  rules  are  applicable  in  any  context  T,  which  we  generally  omit.  If  the  type 
X  =A  y  inhabited,  we  call  x  and  y  equal.  If  we  do  not  care  about  the  specific  equality 
witness,  we  often  simply  say  that  x  =a  y-  A  term  p  :  x  =a  y  will  be  often  called  a  path  and 
the  process  of  applying  the  identity  elimination  rule  will  be  referred  to  as  path  induction. 
Definitional  equality  between  x,y  :  A  will  be  denoted  as  x  =  y  :  A. 

Proofs  of  identity  behave  much  like  paths  in  topological  spaces:  they  can  be  reversed,  concate¬ 
nated,  mapped  along  functions,  etc.  Below  we  summarize  a  few  of  these  properties: 

•  For  any  path  p  :  x  =a  y  there  is  a  path  p~^  :  y  =a  x,  and  we  have  =  lx- 

•  For  any  paths  p  :  x  =a  y  and  q  :  y  =a  ^  there  is  a  path  p  •  q  -.  x  =a  z,  and  we  have 

1  ■  1  =  1 
■‘■X  ■‘■X  -  ■‘■X’ 

•  Associativity  of  composition:  for  any  paths  p  :  x  =a  y,  q  '.  y  =a  z,  r  :  z  =a  u  we  have 

{p  •  q)  •  r  =  p  •  {q  •  r). 

•  We  have  Ix’P  =  p  and  p  ■  1^,  =  p  for  any  p  :  x  =a  y- 

•  For  any  p  :  x  =a  y,  q  ■  y  =a  z  we  have  p  ■  p~^  =  lx,  p~^  •  p  =  ly,  and  (p~^)~^  =  p, 
(p  ■  q)~^  =  q~^  •  p~^. 
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•  For  any  P  :  A  ^  type  and  p  :  x  =a  y  there  is  a  function  trans^(p)  :  P{x)  — )■  P{y)  called 
the  transport.  We  furthermore  have  trans^(la;)  =  \x-.p(x)X. 

•  We  have  trans^(p  ■  q)  =  trans'^(g)  o  trans^(p)  for  any  P  :  A  ^  type  and  p  :  x  =a  y, 
q:y=AZ. 

•  For  any  function  f  :  A  ^  B  and  path  p  :  x  =a  y,  there  is  a  path  apj(p)  ;  f{x)  =b  f{y)  and 
we  haveap^(la;)  = 

•  We  have  apj(p“^)  =  apj(p)“^  and  apj(p  ■  q)  =  apj(p)  ■  apj(g)  for  any  f  :  A  ^  B  and 
p  ■.  X  =Ay,q  ■  y  =A  z. 

•  Given  a  dependent  function  /  :  Y\.x,aB{x)  and  path  p  :  x  =a  y,  there  is  a  path  apdj(p)  : 
trans^(p,/(a;))  =B{y)  f{y)  and  we  have  apd^(la;)  =  If^x)- 

•  All  constructs  respect  propositional  equality. 

Definition  1.  For  f,  g  :  IIx-.aB  (x),  we  define  the  type 

f  ^  9  ■=  ^a:A{f{a)  =B{a)  9{a)) 
and  call  it  the  type  of  homotopies  between  f  and  g. 

Definition  2.  For  f,g:X^Y,p:x  =x  y,  C(  :  f  g,  there  is  a  path 

mta{p)  :  ap^(p)  ■  a{y)  =  a{x)  ■  ap^(p) 

defined  in  the  obvious  way  by  induction  on  p  and  referred  to  as  the  naturality  of  the  homotopy  a. 
Pictorially,  we  have 


a(x) 

f{x)  - g{x) 


ap  f{p) 


fiy) 


nata(p)  ap^(p) 

9{y) 


a{y) 


A  crucial  concept  in  HoTT  is  that  of  an  equivalence  between  types. 

Definition  3.  A  map  f  :  A  ^  B  is  called  an  equivalence  if  it  has  both  a  left  and  a  right  inverse: 
iseq(/)  ;=  {T.g.,B^A{,g  o  /  ~  id^))  x  [Y^h-.b^aU  idg)) 


We  define 

{A  ~  B)  :=  Yf,A^B'seq{f) 

and  call  A  and  B  equivalent  if  the  above  type  is  inhabited. 
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We  call  A  and  B  logically  equivalent  if  there  are  exist  functions  f  :  A  ^  B,  g  :  B  ^  A. 
In  practice,  we  often  show  that  two  types  A  and  B  are  equivalent  by  first  exhibiting  the  logical 
equivalence  of  A  and  B  and  then  showing  that  the  functions  /  and  g  compose  to  identity  on  both 
sides.  In  this  case  we  refer  to  /  and  g  as  forming  a  quasi-equivalence  and  say  that  /  and  g  are 
quasi-inverses  of  each  other.  A  pair  of  quasi-inverses  can  always  be  turned  into  an  equivalence. 

Many  “diagram-like”  operations  on  paths  turn  out  to  be  equivalences.  For  instance: 

•  For  any  u  :  a  =a  b,v:b  =a  d,w:a  =a  c,  z  :  c  =a  d,  as  in  the  diagram 


u 

a - 


b 


w 


V 


c 


z 


d 


we  have  functions 

X  ■.  {u  '  V  =  W  '  z)  ^  •  w  •  z  =  v) 

:  {u~^  •  w  •  z  =  v)  ^  {u  •  V  =  w  •  z) 

defined  by  path  induction  on  u  and  2;,  which  form  a  quasi-equivalence. 

Finally,  we  show  how  to  construct  paths  in  pair  and  function  types.  Given  two  pairs  c,  d  :  AxB, 
we  can  easily  construct  a  function 

:  (c  =  d)  ^  (7ri(c)  =  7ri(d))  x  (7r2(c)  =  7r2(d)). 

We  can  show: 

Lemma  4.  The  map  proj^^  is  an  equivalence  for  any  c,d  :  A  x  B. 

We  will  denote  the  quasi-inverse  of  proj^^  by  pair^^.  For  brevity  we  will  often  omit  the  subscripts. 
Analogously,  given  two  functions  /,  g  :  IIx:aB{x),  we  can  construct  a  function 

h3P/,3  :  (/  =  d)  ^  (/  ~d) 

Showing  that  this  map  is  an  equivalence  (or  even  constructing  a  map  in  the  opposite  direction)  is 
much  harder,  and  is  in  fact  among  the  chief  consequences  of  the  univalence  axiom: 

Lemma  5.  The  map  hapj^  is  an  equivalence  for  any  /,  g  :  IIx-.aB{x). 

Proof  SeeCh.  4.9of  Uni.  □ 

We  will  denote  the  quasi-inverse  of  hapj^^  by  funext/^g. 
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3  The  circle  and  the  torus 

The  circle  is  a  higher  inductive  type  generated  by  the  constructors 


base  ;  S^, 

loop  ;  base  =  base. 

The  recursion  principle  says  that  given  a  type  C  ;  type  and  terms 

b  :  C, 

I  :b  =  b 

there  exists  a  recursor  /  :  — )■  C  for  which  /(base)  =  b  and  apj(loop)  =  /.  The  induction 

principle  says  that  given  a  family  E  :  —)■  type  and  terms 

b  :  E{base), 

I  :  trans'®(loop,  b)  =  b 

there  exists  an  inductor  /  :  na,.sii?(a;)  for  which  /(base)  =  b  and  apdj(loop)  =  /. 

The  torus  is  a  higher  inductive  type  generated  by  the  constructors 

b  ;  T^, 
p  ;  b  =  b, 
q;  b  =  b, 
t  ;  p-q=  q-p 

as  pictured  below: 

P 

b - b 

q  u  t  q 

b - b 

P 

The  recursion  principle  says  that  given  a  type  C  :  type  and  terms 

b'  :  C, 
p'  :b'  =  b', 
q'  ■.y  =  b\ 

•  Ilf  II 

t  :  p  '  q  =  q  '  p  ^ 

there  exists  a  recursor  /  :  — )■  C  for  which  /(b)  =  b'  and  there  exist  paths  {3  :  apj(p)  =  p'  and 

7  ;  apj(q)  =  q'  making  the  following  diagram  commute: 
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aP/(p-g)  - - aP/(g-p) 


aP/(p)  ■aP/(g)  aP/(?)  ■aP/(p) 

via  /3,  7  via  7,  /S 

p'  ■  q' - - - q'  ■  p' 

Here,  each  edge  represents  an  equality  between  its  vertices.  Unlabeled  edges  stand  for  the  “ob¬ 
vious”  equalities  which  follow  from  the  basic  properties  of  identity  types,  such  as  the  path  from 
ap/(p'  <?)  to  apj(p)  ■  apj((3').  Edges  labeled  with,  e.g.,  “via  13, 7”  stand  for  an  application  of  congru¬ 
ence:  here  is  a  path  from  apj(p)  to  p'  and  7  is  a  path  from  apj(g)  to  q' .  Since  path  concatenation 
respects  equality,  combining  (3  and  7  in  a  straightforward  fashion  yields  a  path  from  a  p ^  (p)  ■  a  p  j  (g) 
to  p'  ■  q' . 

We  note  that  there  may  be  several  natural  ways  how  to  implement,  e.g.,  the  congruence  of  path 
concatenation  with  respect  to  path  equality:  we  can  perform  path  induction  on  the  first  argument, 
on  the  second,  or  on  both.  For  our  purposes  the  exact  definition  is  immaterial  as  they  are  all  equal 
up  to  a  higher  path,  which  is  why  we  only  specify  the  arguments  (in  this  case  f3  and  7).  From  now 
on,  all  paths  and  diagrams  will  be  annotated  in  this  style. 

The  induction  principle  for  is  more  complicated;  it  says  that  given  a  family  E  :  T'^  ^  type, 
in  order  to  get  an  inductor  /  :  IIx,t2E{x)  we  require  terms 

b'  :  E{h) 

p'  :  trans’®(p,  b')  =  b' 
q'  :  trans’®(q,  b')  =  b' 

t'  ■  (aPa^transS(a,b')(t))“^  ■  (^7}(.F,  p,  q,  6')  '  aPtrans^Cq)  (P  )  '  9  )  = 

r/(U,q,p,6')-a  Ptrans®(p)  (5'  )  P 

where  for  any  family  E  :  T'^  ^  type,  paths  a  :  x  =t‘2  y,  a'  :  y  =7,2  and  point  u  :  E{x),  the 
path 

Tf{E,  a,  a  ,  u)  :  trans'®(Q;  ■  a  ,  u)  =  trans®(Q;',  trans®(Q;,  u)) 

is  obtained  by  path  induction  on  a  and  a'.  The  inductor  /  then  has  the  property  that  /(6)  =  6'. 
Furthermore,  there  exist  paths  f3  :  apdj(p)  =  p'  and  7  :  apdj(q)  =  q'  satisfying  a  higher  coherence 
law,  which  we  omit  since  we  do  not  need  it. 

4  Logical  equivalence  between  x  and 

Left-to-right  We  define  a  function  /  :  — )■  by  circle  recursion,  mapping  base  h- )■  b  and 

loop  !-)■  p.  Thus,  we  have  a  definitional  equality  /(base)  =  b  and  a  path  /3f  :  apj(loop)  =  p. 
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We  define  a  function  — )■  — )■  again  by  circle  recursion,  mapping  base  h- )■  /  and 

loop  I— )■  funext(iJ),  where  H  :  Ilx:sif{x)  =  f{x)  is  defined  by  circle  induction  as  follows.  We 
map  base  to  q  and  loop  to  the  path 

trans^'^-l(^)^-l*^^)(loop,  q) 

71  (loop,  q) 

apj(loop)~^  ■  q  ■  apj(loop) 

I{l) 

q 

where  for  any  a  :  x  =si  y  and  u  :  f{x)  =  f{x),  the  path 

71(q;,  u)  :  trans^'^'^*'^^^'^^'^^(Q;,  u)  =  apf{a)~^  •  u  ■  apj(Q;) 

is  obtained  by  a  straightforward  path  induction  on  a,  and  7  is  the  path 

aP/(loop)  ■  q 

via  Pf 

p-q 

t 

q-p 

via 

q-ap/(loop) 

Having  defined  a  function  — )■  T^,  it  is  now  straightforward  to  define  its  curried 

version  F  :  x  — )■  T^.  We  note  that  F^(base)  =  /,  and  in  particular  F(base,  base)  =  b. 
Furthermore,  we  have  a  path  ■  ap^->(loop)  =  funext(i7).  Since  hap  and  funext  form  a 
quasi-equivalence,  we  have  a  path 

:  hap(ap^^(loop))  =  H 

The  function  H  is  a  homotopy  between  /  and  /  such  that  i7(base)  =  q  and  the  following  diagram 
commutes: 

nat// (loop) 

apj(loop)  ■  q - q ■  apj(loop) 

via/3/  (1)  via/3/ 

p-q - ^ -  q-p 
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To  show  this,  we  note  that  for  any  a  :  x  =si  y,  applying  J  ^  to  the  path 


aP/(a)  ^  ■aP/(a) 

Ti{a,H{x))~^ 

H{x)) 

apd^(a) 

Hiy) 


yields  nat//(Q;):  this  follows  by  a  path  induction  on  a  and  a  subsequent  generalization  and  path 
induction  on  H{x).  The  second  computation  rule  for  H  tells  us  that 

apd^(loop)  =  ri(loop,q)  ■X(7) 


Thus 

natj^(loop)  =X~^(ri(loop,q)“^  ■apdj:^(loop))  =7 
which  proves  the  commutativity  of  (1). 

Finally,  we  note  that  for  any  a  :  x  =t‘2  x'  and  a'  :  y  =t^  y' ,  we  have  path  families 

;  ap^(pair=(l3:,a'))  =  aPF^(a;)(«  ) 

Vy{a)  :  ap^(pair=(a,ly))  =  hap(ap^^ (a), ?/) 


defined  by  path  induction  on  a'  and  a  respectively. 


Right-to-left  We  define  a  function  G  :  — )■  x  by  torus  recursion  as  follows.  We  map 

b  !-)■  (base,  base),  p  h-)-  pair^(lbase,  loop),  q  i-)-  pair^(loop,  Ibase),  and  t  i-)-  <hioop,ioop,  where  for 
any  a  :  x  =si  x',  a'  :  y  =si  y' ,  the  path 

^a,a'  ■  (^pair=(l^,a')  ■  pair=(a,  =  (^pair=(Q;,  1^^)  ■  pair=(l,^/,  a')) 

is  defined  by  induction  on  a  and  a' . 

Then  we  have  a  definitional  equality  G(b)  =  (base,  base)  and  paths 

f^G  ■  aPG(p)  =  pair=(lbase,  loop) 
f^G  ■  aPG(q)  =  pair=(loop,lbase) 

which  make  the  following  diagram  commute: 
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aPG(P'q) 

via  t 

aPG(q-p) 

aPG(p)  -390(9) 

(2) 

aPG(q)  -390(9) 

via  /3g,,  /?^ 

via  /3^,  /3g, 

pair  (1,  loop)  ■  pair  (loop,  1) 


-loop, loop 


pair  (loop,  1)  ■  pair  (l,loop) 


5  Equivalence  between  x  and 

Left-to-right  We  need  to  show  that  for  any  x,y  :  we  have  G{F{x,  y))  =  {x,  y).  We  do  this 

by  eirele  induction  on  the  first  argument.  We  need  a  path  family  e  :  Ily,siG{f{y))  =  (base,?/). 
The  definition  of  e  itself  proceeds  by  circle  induction:  we  map  base  to  the  path  1  (base, base)  and  loop 
to  the  path 

trans^^'^(-^(''))=(‘'^^®’^)(l00p,  l(base,base)) 

72  (loop,  l(base,base) ) 

apG.(apj(l00p))"^  ■  l(base,base)  '  pair=(lbase,  loOp) 

I{6) 

l(base,base) 

where  for  any  a  :  x  =si  y  and  u  :  G{f{x))  =  (base,  x),  the  path 

Tiia,  u)  :  u)  =  apc,(apj(Q;))“^  ■  u  ■  pair=(lbase,  «) 

is  defined  by  path  induction  on  a  and  b  is  the  path 
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aPG(aP/(loop))  ■  1  (base, base) 


aPG(aP/(loop)) 

via  /?/ 


aPG(p) 

PI 

pair=(lbase,  loop) 


l(base,base)  '  PSII^  (Ibase;  loOp) 

This  finishes  the  definition  of  e.  We  now  need  to  prove  that 


ga;i-5>n(y:Si)G(F(x,y))  =  (x,j/)  ^ 

By  function  extensionality,  it  suffices  to  show  that  for  any  y  :  we  have 


y  =  e{y) 

Straightforward  path  induction  shows  that  for  any  a  :  base  =si  x,  we  have 

y  =  apG(hap(ap^^(a), ■  e(?/)  ■  pair=(a,  1^^) 

It  thus  suffices  to  show  that 

apG(hap(ap^-> (loop),!/))  ■€(?/)  =  e{y)  ■  pair=(loop,  1^^) 

After  simplifying  the  left  endpoint  using  hap(/3^^,  y)  it  suffices  to  show  that 

aPG(^(l/))  ■  e(l/)  =  e(|/)  ■  pair=(loop,  1^^) 

for  any  y  :  S^.  We  proceed  yet  again  by  circle  induction.  We  map  base  to  the  path  y  below: 

aPG(q)  ■ 1  (base, base) 


aPG(q) 


pair  (loop,  Ibase) 


l(base,base)  '  (loOp,  1  base) 


10 


All  that  now  remains  to  show  is 


lf3nsy^^PGiH(y))-e(y)=e(y)-paW  (l°oP.l,)  (loop^ 

However,  this  follows  at  onee  from  the  faet  that  the  eirele  S\  and  henee  the  produet  x  S^,  is  a 
1-type  (as  shown  e.^.,  by  Lieata  and  Shulman  [Q):  this  means  that  for  any  two  points  x,y  :  S^x  S^, 
any  two  paths  a,a'  :  x  =  y,  and  any  two  higher  paths  7, 7'  :  a  =  a',  we  neeessarily  have  7  =  7'. 

Right-to-left  We  need  to  show  that  for  any  x  :  we  have  F{G{x))  =  x.  We  use  torus  induetion 
with  b'  :=  lb-  We  let  p'  be  the  path 


lb) 

r3(p,  lb) 

aPF(aPG(p))~^  ■  lb  -P 

I{Kp) 

lb 

where  for  any  a  :  x  =^2  y  and  u  :  F{G{x))  =  x,  the  path 

Tsi^a,  u)  :  u)  =  ap^(apQ(a))“^  ■  m  ■  a 

is  defined  by  path  induetion  on  a  and  Kp  is  the  path 

aPF(aPG(p))  ■  lb 
aPF(aPG(p)) 

via  /3g, 

ap^(pair=(l 

base?  loop)) 

/^base(loop) 

apj(loop) 

Pf 

P 


lb  ■  P 
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Similarly,  let  q'  be  the  path 


where  Kq  is  the  path 


lb) 

r3(q,  lb) 

aPF(aPG(q))~^-lb-q 

I{Kq) 

lb 


aPF(aPG(q))  ■  lb 


aPF(aPG(q)) 

via  /3^ 

apjj.(pair=(loop,  1 

base)  ) 
^base  ( loop) 

hap(ap^^  (loop),  base) 

hap(/3|^_> ,  base) 

q 


lb  ■  q 

All  that  remains  now  is  to  show  that  the  following  diagram  commutes: 

■  q,  lb)  - ■  p,  lb) 


via  p' 

lb) 


via  q' 

lb) 
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We  proceed  in  four  steps. 


Step  1  For  terms  ai  : 
Uy  :  F{G{y))  =  b,Uz-. 
Uy  ■  a'2,  let  ('(ai,  0:2,  Ci'i 


Now  for  q;i  X  =t2 
Vi  ■  aPF(aPG(«i))  '“y 


X  =t'2  y,  a2  y  =t2  2:,  :  a  =^2  b,  0:2  •  b  =^2  c,  :  F{G{x))  =  a, 

F{G{z))  =  c,  ?7i  :  ap^(apG(ai))  'Uy  =  u^'  a\,  ri2  ■  app.(apc(tt2))  ■  = 

,  a'2,  Ux,  Uy,  Uz,  r]i,  r]2)  be  the  path 

ap^(apG.(ai  ■  02))  ■  u^ 


aPF(aPG(«i))  ■aPF(aPG(«2)) 


Uz 


aPF(aPG(«i))  ■  (aPF(aPG(«2)) 
via  r]2 

ap^(apG(ai))  ■  K  ■ 


(ap^(apG(ai))  -  My)  ■  a'^ 
via  rji 
{u^  ■  a'J  ■  a'2 


■  (a'l  ■  a'2) 


y,ct2-y  =r2  2:,  Uz,  :  F{G{x))  =x,Uy  :  F{G{y))  =  y,Uz  :  F{G{z))  =  z, 
=  Uz  ■  tti,  ri2  ■  aPF(aPG(“2))  '  u^  =  Uy  •  a2,  we  claim  the  path 

■  a2,Uz) 


via  75(01, iia;)  ‘F{yi) 

75(02,  Wy)  'F{y2) 

Uz 
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is  equal  to  the  path 


■  0:2,  Mx) 

73(01  ■  02,  Ux) 

ap^(apc.(ai  ■  02))“^  ■  Ux  ■  (oi  ■  02) 

via  X(C(ai,  02,  oi,  02,  Wx,  Uy,  u^,  m^m)) 

Uz 


To  show  this,  we  proceed  by  path  induction  on  oi  and  q;2-  Hence  we  have  to  establish  the 
claim  for  oi  :=  1^,  02  :=  lx,  Ux,Uy,Uz  :  F{G{x))  =  x,  and  r]i  :  1f(g(x))  ‘  Uy  =  Ux  ‘  lx, 

72  •  1f(G(x))  "  '^z  '^y  "  lx- 

We  note,  however,  that  the  types  of  771, 772  are  equivalent  to  Ux  =  Uy  and  Uy  =  Uz  respectively. 
Hence  it  suffices  to  show  that  given  Ux,Uy,Uz  :  F{G{x))  =  x,  ri[  :  Ux  =  Uy,  rj2  :  Uy  =  Uz,  we 
can  establish  the  claim  for  the  special  case  when  771  and  772  have  been  obtained  from  r][  and  772, 
respectively,  by  using  the  aforementioned  equivalences. 

But  we  can  now  perform  path  induction  on  77'^  and  7/2,  leaving  us  with  Ux  :  F{G{x))  =  x  and 
r][  :=  lu^,  T] 2  :=  1^^.  We  finish  the  proof  by  generalizing  the  endpoints  of  Ux  and  performing  a 
final  path  induction. 

By  what  we  have  just  shown,  it  suffices  to  prove  that  the  following  diagram  commutes: 


r3(p-q,  lb) 

aPF(aPG(P'q))~^'lb-(p-q) 


-  trans"^^^(^("'))=^(q-p,lb) 

^^(q-p,  lb) 

apF(aPG(q'p))^^  ■  lb-  (q-p) 


Step  2  We  observe  the  following:  given  terms  a^a'  ■.  x  =7,2  y,  9  ■.  a  =  a' ,  Ux  '■  F{G{x))  =  x, 
Uy  :  F{G{y))  =  y,  T]  :  ap^(apc,(a))  ■  Uy  =  Ux  ■  a,  and  77'  :  ap^(apG'(a'))  •  Uy  =  Ux  •  a',  the 

commutativity  of  the  diagram 
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^{a^Ux) 

T3ia,Ux) 

ap^(apg(a))“^  -Ux-a 


via  6 


is  equivalent  to  the  commutativity  of  the  diagram 

aPF(aPG(«))  ■  Uy  - 

V 


Ur  ■  a 


^{a\ux 
T3{a',Ux) 
ap^(apG-(a'))“^  'Ux'a' 


appispcioi'))  •  Uy 


via  9 


Ux  ■  a 


To  show  this,  we  proceed  by  path  induction  on  6  and  a  subsequent  path  induction  on  a.  After 
simplifying  it  remains  to  prove  that  for  Ux,Uy  :  F{G{x))  =  x,  rj,  r(  :  1f(g(x))  '  Uy  =  Ux'  lx,  we 
have  {F{ri)  =  I{r]'))  ~  (77  =  r]').  But  this  follows  since  X  is  an  equivalence. 

By  what  we  have  just  shown,  it  suffices  to  prove  that  the  following  diagram  commutes: 


aPF(aPG(P'q))'lb 


via  t 


aPF(aPG(q'P))  ■  lb 


C(p,q,p,q,  lb,lb,lb,«:p,Kg) 


C(q,p,q,p,  lb,  lb,  lb,  Kg,  Kp) 


lb  ■  (p  ■  q) - ^ - lb  •  (q  •  p) 

via  t 


Step  3  We  observe  the  following:  for  A;  G  {1,2}  and  xi,X2,X3  :  let  terms  a\  ■.  Xk  =  Xk+i, 

al  :  G{xk)  =  G{xk+i)-,  alal  :  F{G{xk))  =  F{G{xk+i))-,  4  ■  aPcK)  =  Oil'  lI  :  ^Ppial)  = 

•  “fc  =  given.  Then  the  path 


15 


aPF(aPG(«l  ■«2))  ■  1f(g(x3)) 


app(apG(aJ 

aPF(aPG(«{)  ■aPG(«2)) 
via  4,4 

aPF(a?-ai) 
aPF(«?)  ■aPF(«i) 

via  4,4 

af  ■  0:2 

via  4,4 

Q;f  ■  q;| 

1f(g(xi))  ■  {af  ■  Gs) 

is  equal  to  the  path  C (^a},  al,  aj,  aj,  1f(g(xi)),  1f(g(x2)),  1f(g(x3)),  ^1,  ^72)  where  T]k  is  the  path 
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appiapcial))  ■  lF(G(xfc+i)) 


aPF(aPG(«fc)) 


via  Lt 


sppial 


c^i 


0^7. 


lF(G(xfe))  ■  al 

To  show  this,  we  proceed  by  path  induction  (with  one  endpoint  fixed)  on  and  a  subse¬ 

quent  path  induction  on  a\. 

By  what  we  have  just  shown,  it  suffices  to  prove  that  the  outer  rectangle  in  the  following 
diagram  commutes: 
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aPF(aPG(P'q))'l 


via  t 


aPF(aPG(q'P))  ■  1 


aPF(aPG(P'q)) 


A 

via  t 


aPF(aPG(q'P)) 


aPF(aPG(p)  'aPG 


via 


apjT^lpair  (1,  loop)  •  pair  (loop,  1 


B 


via 


loop, loop 


aPF(aPG(q)  •aPG(p) 
via  13%,  13^ 
apj;.^pair=(loop,  1)  •  pair=(l,  loop)^ 


app(pair  (1,  loop))  ■  ap^(pair  (loop,  1))  C  app.(pair  (loop,  1))  ■  ap^(pair  (l,loop)) 

via  /Ibase(loop),  l^base(loop)  via  I/base(loop),  /ibase(loop) 


apj(loop)  ■  hap(ap^^(loop),  base)  - hap(app^-^ (loop),  base)  ■  apj(loop) 

*^atbap(ap^— » (loop))  (l*a*ap) 

via /?/,  hap(/3^^,  base)  D  via  hap(/3^^ ,  base), /?/ 


p-q - - - q-p 

E 

1  ■  (p  ■  q)  - ^ -  1  •  (q  ■  p) 

via  t 


Step  4  It  suffices  to  prove  that  each  of  the  inner  rectangles  commutes.  Rectangles  A  and  E 
commute  obviously.  Rectangle  B  is  just  diagram  (2)  transported  along  ap^,  and  hence  commutes. 
Rectangle  C  commutes  by  the  following  generalization:  for  any  a  :  x  =si  y,  the  diagram  below 
commutes  by  path  induction  on  a: 
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(  =  =  \  (  =  =  \ 
apj:,(  pair-(la;,a)  ■  pair-(a,  ly)]  - ap^.  f  pair-(a,  1^)  ■  pair-(ly,a)j 

ap^(pair=(la;,a))  ■  ap^(pair=(a,  1^^))  ap^(pair=(a,  l^^))  ■  ap^(pair=(ly,  a)) 

via  ^xioi),iyy{a)  via  Hy{a) 

aPF^(x)(«)  ■  hap(app^(Q;),y)  -  hap(ap^^ (a), x)  ■  app^^y){a) 

•^3thap(ap^_i.  («))  (Q^) 

It  remains  to  show  that  rectangle  D  commutes.  Consider  the  following  diagram: 

apj(loop)  ■  hap(ap^^(loop),  base)  -  hap(app'-> (loop),  base)  ■  apj(loop) 

^3thap(ap^— » (loop))  (l*a*ap) 

via  hap(/3^^,  base)  via  hap(/i^^,  base) 

aPf(loop)  •  q - ^ ^ -  q-  apj(loop) 

nat//(loop) 

via  Pf  via  13 f 

p-q - ^ -  q-p 

Commutativity  of  the  outer  rectangle  clearly  implies  the  commutativity  of  D.  It  thus  remains  to 
show  that  Di  and  D2  commute.  The  rectangle  D2  is  precisely  diagram  (1),  which  commutes. 
Rectangle  Di  commutes  by  the  following  generalization:  let  7  :  /ii  =  /i2  and  a  :  x  =si  y  be 

given.  Then  the  following  diagram  commutes  by  path  induction  on  7  and  a: 

natfe,  (a) 

ap^(a)  ■  hiiy)  - hi{x)  ■  ap^(a) 

viahap(7,|/)  viahap(7,a;) 

ap^(a)  ■  h2{y) - — - h2{x)  ■  ap^(a) 

natfe,(a) 

This  finishes  the  proof. 
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6  Conclusion 


We  have  presented  a  homotopy-type  theoretic  proof  that  the  torus  is  equivalent  to  the  product  of 
two  circles  x  S^.  To  compare  the  proof  described  here  to  the  one  given  by  Licata  and  Brunerie 
in  m,  we  first  note  that  the  definitions  of  the  back-and-forth  functions  between  and  x 
are  exactly  the  same.  When  proving  that  the  functions  compose  to  the  identity  on  x  we  used 
the  fact  that  the  circle  is  a  1-type.  This  simplification  is  not  used  by  Licata  and  Brunerie;  the 
lines  75-76,  82-86  in  |j4|  comprise  the  path  algebra  which  would  be  avoided  by  the  aforementioned 
simplification.  On  the  other  hand,  in  this  fashion  Agda  is  able  to  automatically  infer  the  terms 
loopi-case  and  loop2-case,  which  in  our  notation  correspond  to  the  paths  rj  and  5  respectively  (of 
course  a  paper  proof  offers  no  such  opportunity). 

Similarly,  when  proving  that  the  functions  compose  to  the  identity  on  T^,  the  terms  p-case  and 
q-case,  which  in  our  proof  correspond  to  the  paths  Kq  and  Kp,  are  inferred  automatically.  Steps  1 
and  2  of  our  proof  roughly  correspond  to  lines  403-441  in  [[5]|  and  51-57  in  [|4l;  in  both  proofs,  the 
purpose  of  these  steps  is  to  mediate  between  a  diagram  involving  transports  (a  “square-over”)  and 
an  equivalent  diagram  which  does  not  (a  “cube”).  Steps  3  and  4  then  roughly  correspond  to  lines 
60-67  in  Q;  the  commuting  diagrams  (or  “cubes”)  established  in  Step  4  are  composed  together, 
using  a  reordering  of  operations  that  is  justified  by  Step  3. 
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